home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Amiga Amateur Radio User Group / AARUG UK #83 (199x)(Amiga Amateur Radio User Group UK)(PD)[G4DCV].zip / AARUG UK #83 (199x)(Amiga Amateur Radio User Group UK)(PD)[G4DCV].adf / Install_AmigaNos < prev    next >
Text File  |  1994-09-13  |  2KB  |  112 lines
  1.  
  2. (set TRUE 1)
  3. (set FALSE 0)
  4.  
  5. (set docopylibs TRUE)
  6. (set docopycdir TRUE)
  7.  
  8.  
  9. (set m1 "You are about to use the\n\nG4UFG AmigaNos Hard Disk\n\n")
  10. (set m2 " installation utility version 1.1\n")
  11.  
  12.  
  13. (message m1 m2)
  14.  
  15.  
  16.  
  17.  
  18. (set installto "0"); this sets installation to hd.
  19.  
  20.  
  21. (set loopy 1)
  22.  
  23. (while (= loopy 1)
  24.  
  25.    (set installfile
  26.       (askfile
  27.                (prompt "please select file to decrunch")
  28.                (default "Amiganos.lha")
  29.                (help @askfile-help)
  30.       )
  31.    )
  32.  
  33.    (set installdest
  34.       (askdir
  35.          (prompt "Into which drawer should\n" (fileonly installfile) "\n be installed ? \n(dont forget the / after the drawer name\n if typing in yourself)")
  36.  
  37.          (help @askdir-help)
  38.          (default "dh1:TCPIP/")
  39.       )
  40.    )
  41.  
  42.    (set lhacommands (cat '"'installfile'"' ' ' '"'installdest'"'))
  43.  
  44.    (message "I am going to Unpack the Archive from/to  "lhacommands)
  45.  
  46.    (set @default-dest installdest)
  47.  
  48.    (run "TCPInstall:c/lha x "lhacommands)
  49.  
  50.    (set loopy
  51.       (askbool
  52.          (prompt "Do you want to decrunch any more programs ?")
  53.          (default 0)
  54.          (help "select \"Yes\" or \"No\"")
  55.       )
  56.    )
  57.  
  58. )
  59.  
  60. (if (= docopylibs TRUE)
  61.    (set libyn
  62.          (askbool
  63.             (prompt "Now you need to insall Arp.library if you havent got it Already")
  64.             (default 0)
  65.             (help "select \"Yes\" or \"No\"")
  66.          )
  67.    )
  68. )
  69.  
  70.  
  71. (if (= libyn 1)
  72.  
  73.    (copyfiles
  74.       (prompt "Please select a file to copy")
  75.       (help @copyfiles-help)
  76.       (source "libs")
  77.       (dest "Libs:")
  78.       (files)
  79.       (pattern "Arp.library")
  80.       (optional "askuser")
  81.       (confirm)
  82.    )
  83. )
  84.  
  85.  
  86. (if (= docopycdir TRUE)
  87.    (set cdiryn
  88.          (askbool
  89.             (prompt "Amiganos needs the ARP commands Arun and Less in your c: dir, Do you want me to copy them over ?")
  90.             (default 0)
  91.             (help "select \"Yes\" or \"No\"")
  92.          )   
  93.    )
  94. )
  95.  
  96.  
  97. (if (= cdiryn 1)
  98.  
  99.    (copyfiles
  100.       (prompt "Please copy ARUN and LESS now to your c directory..")
  101.       (help @copyfiles-help)
  102.       (source "cstore")
  103.       (dest "c:")
  104.       (files)
  105.       (pattern "#?")
  106.       (optional "askuser")
  107.       (confirm)
  108.    )
  109. )
  110. (set displayReadme 1)
  111. (exit "Operation completed IMPORTANT! Now read the README File.")
  112.